(display "\n========================================\n")
(define (compose f g)
    (lambda (x) (f (g x))))

(define (inc x)
    (+ x 1))

(display ((compose square inc) 6))
(display "\n========================================\n")
